"
'
'
' The following lines go to the creation of the MENU files
'
'
' Process each selected picture
Dim nbPic, i, flsh, flshval
nbPic = alb.nbVisiblePicture
app.Trace "Pictures to process in this album: " & nbPic
f.WriteLine "
"
if backlink = "yes" then
f.WriteLine "
"
f.WriteLine " | BACK | "
f.WriteLine "
"
end if
f.WriteLine "
Build with MyAlbum script"
f.WriteLine "
Created by:"
f.WriteLine "
mpilihp@yahoo.com"
f.WriteLine "
With help by:"
f.WriteLine "
pierre.meindre@libertysurf.fr"
f.WriteLine "
With code from:"
f.WriteLine "
r.p.feria@ieee.org"
f.WriteLine "
Steve@sdean.demon.co.uk"
f.WriteLine ""
f.WriteLine ""
f.Close
app.Trace nbPic & " picture processed."
app.Trace "HTML file generation complete !"
app.Trace "This script creates a web page that uses thumbnail pictures in the menu."
app.Trace "Create these from My Album Tools -> Export Album menu option."
app.Trace "Select -Save Thumbnails- then set Output Directory to where this albums images are located, and prest Start!"
MsgBox( "Please read the last three lines in trace for instructions on completing this WEB page." & vbcrlf & "Please select OK to continue")
' Launch browser
app.Run pathstring & outputFileName, True, 1
else
app.Trace "No album to process, exiting !"
end if
' ********************************************************************************
' *
' * GetAlbum : get the current album or prompt the user to select one
' *
Function GetAlbum( byref alb )
GetAlbum = True
' First try to use the current album
set alb = app.GetCurrentAlbum
if alb is nothing then ' No album is open
dim albFile
albFile = InputBox( "Please enter the name of the album to process", "Simple HTML generator", "")
set alb = app.LoadAlbum( albFile )
if alb is Nothing then
GetAlbum = False
end if
end if
End Function